home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTFormExplode.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  3.4 KB  |  92 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTFormExplode.pas' rev: 3.00
  6.  
  7. #ifndef AHMTFormExplodeHPP
  8. #define AHMTFormExplodeHPP
  9. #include <AHMSystem.hpp>
  10. #include <Forms.hpp>
  11. #include <Classes.hpp>
  12. #include <Windows.hpp>
  13. #include <SysInit.hpp>
  14. #include <System.hpp>
  15.  
  16. //-- user supplied -----------------------------------------------------------
  17.  
  18. namespace Ahmtformexplode
  19. {
  20. //-- type declarations -------------------------------------------------------
  21. enum TAHMWipeType { wsFormTopBorder, wsFormBottomBorder, wsFormLeftBorder, wsFormRightBorder, wsScreenTopBorder, 
  22.     wsScreenBottomBorder, wsScreenLeftBorder, wsScreenRightBorder, wsFormTopLeft, wsFormBottomLeft, wsFormTopRight, 
  23.     wsFormBottomRight, wsScreenTopLeft, wsScreenBottomLeft, wsScreenTopRight, wsScreenBottomRight, wsFormMiddle, 
  24.     wsScreenMiddle, wsCustompoint };
  25.  
  26. enum TAHMShowType { onAlways, onShow, onHide };
  27.  
  28. typedef void __fastcall (__closure *TAHMOnGetPoints)(System::TObject* Sender, int &CustomLeft, int &
  29.     CustomTop, int &CustomRight, int &CustomBottom);
  30.  
  31. class DELPHICLASS TAHMFormExplode;
  32. class PASCALIMPLEMENTATION TAHMFormExplode : public Ahmsystem::TAHMSystemsComponent 
  33. {
  34.     typedef Ahmsystem::TAHMSystemsComponent inherited;
  35.     
  36. private:
  37.     TAHMWipeType FOnShowType;
  38.     TAHMWipeType FOnCloseType;
  39.     Word FNoOfSteps;
  40.     TAHMOnGetPoints FOnGetPoints;
  41.     TAHMShowType FShowType;
  42.     Word FCustomLeft;
  43.     Word FCustomTop;
  44.     Word FCustomWidth;
  45.     Word FCustomHeight;
  46.     Classes::TNotifyEvent OwnerOnShow;
  47.     Classes::TNotifyEvent OwnerOnPaint;
  48.     Classes::TNotifyEvent OwnerOnHide;
  49.     void __fastcall SetShow(TAHMShowType Value);
  50.     
  51. protected:
  52.     bool Explode;
  53.     HDC Dc;
  54.     HPEN OldPen;
  55.     HPEN NewPen;
  56.     HBRUSH OldBrush;
  57.     HBRUSH NewBrush;
  58.     int OldROP;
  59.     void __fastcall MyOnShow(System::TObject* Sender);
  60.     void __fastcall MyOnPaint(System::TObject* Sender);
  61.     void __fastcall MyOnHide(System::TObject* Sender);
  62.     void __fastcall ShowForm(HDC Dc, Forms::TForm* Dest, int Steps);
  63.     void __fastcall HideForm(HDC Dc, Forms::TForm* Dest, int Steps);
  64.     
  65. public:
  66.     __fastcall virtual TAHMFormExplode(Classes::TComponent* AOwner);
  67.     void __fastcall GetSrect(int &x, int &y, int &w, int &h, TAHMWipeType ws);
  68.     
  69. __published:
  70.     __property Word NoOfSteps = {read=FNoOfSteps, write=FNoOfSteps, default=40};
  71.     __property TAHMShowType ShowType = {read=FShowType, write=SetShow, default=0};
  72.     __property TAHMWipeType OnShowType = {read=FOnShowType, write=FOnShowType, default=16};
  73.     __property TAHMWipeType OnCloseType = {read=FOnCloseType, write=FOnCloseType, default=16};
  74.     __property Word CustomLeft = {read=FCustomLeft, write=FCustomLeft, nodefault};
  75.     __property Word CustomTop = {read=FCustomTop, write=FCustomTop, nodefault};
  76.     __property Word CustomBottom = {read=FCustomHeight, write=FCustomHeight, nodefault};
  77.     __property Word CustomRight = {read=FCustomWidth, write=FCustomWidth, nodefault};
  78.     __property TAHMOnGetPoints OnGetPoints = {read=FOnGetPoints, write=FOnGetPoints};
  79. public:
  80.     /* TComponent.Destroy */ __fastcall virtual ~TAHMFormExplode(void) { }
  81.     
  82. };
  83.  
  84. //-- var, const, procedure ---------------------------------------------------
  85.  
  86. }    /* namespace Ahmtformexplode */
  87. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  88. using namespace Ahmtformexplode;
  89. #endif
  90. //-- end unit ----------------------------------------------------------------
  91. #endif    // AHMTFormExplode
  92.